VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H008080FF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Login......"
   ClientHeight    =   3720
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5025
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3720
   ScaleWidth      =   5025
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox LoginWindow 
      Height          =   3495
      Left            =   120
      Picture         =   "frmLogin.frx":0000
      ScaleHeight     =   3435
      ScaleWidth      =   4740
      TabIndex        =   13
      Top             =   120
      Width           =   4800
      Begin VB.PictureBox Picture2 
         Height          =   855
         Left            =   0
         Picture         =   "frmLogin.frx":179B3A
         ScaleHeight     =   795
         ScaleWidth      =   4755
         TabIndex        =   16
         Top             =   0
         Width           =   4815
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "Enter User Name And Password to Login The System."
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000E&
            Height          =   795
            Left            =   2160
            TabIndex        =   17
            Top             =   0
            Width           =   1875
         End
      End
      Begin VB.TextBox txtUserName 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   360
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   15
         Text            =   "Nagrial"
         Top             =   1245
         Width           =   2370
      End
      Begin VB.TextBox txtPassword 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   390
         IMEMode         =   3  'DISABLE
         Left            =   2040
         PasswordChar    =   "*"
         TabIndex        =   14
         Top             =   1920
         Width           =   2370
      End
      Begin VB.Label lblChangePassword 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "Change Password"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         MouseIcon       =   "frmLogin.frx":187B8C
         MousePointer    =   99  'Custom
         TabIndex        =   23
         Top             =   3000
         Width           =   1575
      End
      Begin VB.Label lblTip 
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   120
         Left            =   120
         TabIndex        =   22
         Top             =   2520
         Width           =   1845
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Cancel"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   3240
         TabIndex        =   21
         Top             =   2760
         Width           =   615
      End
      Begin VB.Image cmdcancel 
         Height          =   675
         Left            =   3960
         MouseIcon       =   "frmLogin.frx":187E96
         MousePointer    =   99  'Custom
         Picture         =   "frmLogin.frx":1881A0
         Stretch         =   -1  'True
         Top             =   2520
         Width           =   675
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&OK"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   2040
         TabIndex        =   20
         Top             =   2760
         Width           =   255
      End
      Begin VB.Image cmdconnect 
         Height          =   675
         Left            =   2400
         MouseIcon       =   "frmLogin.frx":188EBD
         MousePointer    =   99  'Custom
         Picture         =   "frmLogin.frx":1891C7
         Stretch         =   -1  'True
         Top             =   2520
         Width           =   675
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   480
         TabIndex        =   19
         Top             =   1920
         Width           =   1215
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "User Name :"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   480
         TabIndex        =   18
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   1
         Left            =   2070
         Top             =   2040
         Width           =   2370
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   0
         Left            =   2070
         Top             =   1330
         Width           =   2370
      End
   End
   Begin VB.PictureBox ChangePassWin 
      Height          =   3495
      Left            =   120
      Picture         =   "frmLogin.frx":189EE4
      ScaleHeight     =   3435
      ScaleWidth      =   4740
      TabIndex        =   0
      Top             =   120
      Width           =   4800
      Begin VB.TextBox txtRetryNewPassword 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   390
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   5
         Top             =   2160
         Width           =   2250
      End
      Begin VB.TextBox txtNewPassword 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   390
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   1560
         Width           =   2250
      End
      Begin VB.TextBox txtOldPassword 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   360
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1005
         Width           =   2250
      End
      Begin VB.PictureBox Pictur2 
         Height          =   855
         Left            =   0
         Picture         =   "frmLogin.frx":303A1E
         ScaleHeight     =   795
         ScaleWidth      =   4755
         TabIndex        =   1
         Top             =   0
         Width           =   4815
         Begin VB.Label Label9 
            BackStyle       =   0  'Transparent
            Caption         =   "Enter User Name And Password to Login The System."
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000E&
            Height          =   795
            Left            =   2160
            TabIndex        =   2
            Top             =   0
            Width           =   1875
         End
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "CHANGING PASSWORD"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   375
         Left            =   360
         TabIndex        =   12
         Top             =   2880
         Width           =   1095
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   4
         Left            =   2190
         Top             =   2280
         Width           =   2250
      End
      Begin VB.Label Label18 
         BackStyle       =   0  'Transparent
         Caption         =   "Re-Type Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   2280
         Width           =   1815
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   3
         Left            =   2190
         Top             =   1090
         Width           =   2250
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   2
         Left            =   2190
         Top             =   1680
         Width           =   2250
      End
      Begin VB.Label Label17 
         BackStyle       =   0  'Transparent
         Caption         =   "Old Password :"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   1110
         Width           =   1815
      End
      Begin VB.Label Label16 
         BackStyle       =   0  'Transparent
         Caption         =   "New Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   1680
         Width           =   1815
      End
      Begin VB.Image cmdOK 
         Height          =   675
         Left            =   2400
         MouseIcon       =   "frmLogin.frx":311A70
         MousePointer    =   99  'Custom
         Picture         =   "frmLogin.frx":311D7A
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&OK"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   2040
         TabIndex        =   8
         Top             =   2880
         Width           =   255
      End
      Begin VB.Image cmdCanceI 
         Height          =   675
         Left            =   3960
         MouseIcon       =   "frmLogin.frx":312A97
         MousePointer    =   99  'Custom
         Picture         =   "frmLogin.frx":312DA1
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Cancel"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   3240
         TabIndex        =   7
         Top             =   2880
         Width           =   615
      End
      Begin VB.Label lblTip1 
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   240
         Left            =   120
         TabIndex        =   6
         Top             =   2640
         Width           =   1845
      End
   End
   Begin VB.Image Image4 
      Height          =   675
      Left            =   3120
      Picture         =   "frmLogin.frx":313ABE
      Stretch         =   -1  'True
      Top             =   840
      Visible         =   0   'False
      Width           =   675
   End
   Begin VB.Image Image5 
      Height          =   675
      Left            =   3360
      Picture         =   "frmLogin.frx":31499A
      Stretch         =   -1  'True
      Top             =   1680
      Visible         =   0   'False
      Width           =   675
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsLogin As New ADODB.Recordset
Private Sub cmdcanceI_Click()
        txtOldPassword.Text = ""
        txtNewPassword.Text = ""
        txtRetryNewPassword.Text = ""
        ChangePassWin.Visible = False
        LoginWindow.Visible = True
End Sub
Private Sub cmdconnect_Click()
If txtUserName.Text = "" Then
    MsgBox "Please Enter User Name,Acess Denid ", vbCritical + vbOKOnly, "Nagrial's Iformation"
    txtUserName.SetFocus
Exit Sub
End If
If txtPassword.Text = "" Then
    MsgBox "Please Enter Password,Acess Denid ", vbCritical + vbOKOnly, "Nagrial's Iformation"
    cmdconnect.Picture = Image5.Picture
    cmdcancel.Picture = Image5.Picture
    lblTip.Caption = ""
        txtPassword.SetFocus
Exit Sub
End If
If rsLogin.State = 1 Then rsLogin.Close
        rsLogin.Open ("Select * From Login"), conn, adOpenKeyset, adLockOptimistic
If txtUserName.Text <> "Nagrial" Or txtPassword.Text <> rsLogin.Fields("Password") Then
    MsgBox "Please Enter Correct Password,Acess Denid ", vbCritical + vbOKOnly, "Nagrial's Iformation"
    txtPassword.Text = ""
        cmdconnect.Picture = Image5.Picture
        cmdcancel.Picture = Image5.Picture
        lblTip.Caption = ""
    txtPassword.SetFocus
Exit Sub
End If
If rsLogin.State = 1 Then rsLogin.Close
   rsLogin.Open ("Select * From Login"), conn, adOpenKeyset, adLockOptimistic
If txtUserName.Text = "Nagrial" And txtPassword.Text = rsLogin.Fields("Password") Then
    txtPassword.Text = ""
    Unload Me
    main.Show
Exit Sub
End If
End Sub
Private Sub cmdOK_Click()
    If txtOldPassword.Text = "" Then
        MsgBox "Old Password Field is Empty", vbCritical + vbOKOnly, "Nagrial's Iformation"
            cmdOK.Picture = Image5.Picture
            cmdCanceI.Picture = Image5.Picture
            lblTip1.Caption = ""
        txtOldPassword.SetFocus
    Exit Sub
    End If
    If txtNewPassword.Text = "" Then
        MsgBox "New Password Field is Empty", vbCritical + vbOKOnly, "Nagrial's Iformation"
            cmdOK.Picture = Image5.Picture
            cmdCanceI.Picture = Image5.Picture
            lblTip1.Caption = ""
        txtNewPassword.SetFocus
    Exit Sub
    End If
    If txtRetryNewPassword.Text = "" Then
        MsgBox "Retry New Password Field is Empty", vbCritical + vbOKOnly, "Nagrial's Iformation"
            cmdOK.Picture = Image5.Picture
            cmdCanceI.Picture = Image5.Picture
            lblTip1.Caption = ""
        txtRetryNewPassword.SetFocus
    Exit Sub
    End If
    'If rsLogin.State = 1 Then rsLogin.Close
    If rsLogin.RecordCount > 0 Then
        If rsLogin.State = 1 Then rsLogin.Close
        rsLogin.Open ("Select * From Login"), conn, adOpenKeyset, adLockOptimistic
        If txtOldPassword.Text = rsLogin.Fields("Password") Then
            If txtNewPassword.Text = txtRetryNewPassword.Text And txtNewPassword.Text <> "" Then
                ans = MsgBox("Do You Want To Change Password", 4 + 48, "Information")
                    If ans = 6 Then
                        If rsLogin.State = 1 Then rsLogin.Close
                        conn.Execute ("Update Login set Login.Password =  " & "'" & txtRetryNewPassword.Text & "'" & "")
                        MsgBox "Password Change Scucessfully", 0 + 64, "Information"
                        txtOldPassword.Text = ""
                        txtNewPassword.Text = ""
                        txtRetryNewPassword.Text = ""
                        ChangePassWin.Visible = False
                        LoginWindow.Visible = True
                        txtPassword.SetFocus
                        Exit Sub
                    Else
                        Exit Sub
                    End If
            Else
                MsgBox "New And Retry New Password is Not Same,Try Again ", vbCritical + vbOKOnly, "Nagrial's Iformation"
                    cmdOK.Picture = Image5.Picture
                    cmdCanceI.Picture = Image5.Picture
                    lblTip1.Caption = ""
                        txtNewPassword.SetFocus
            End If
        Else
            MsgBox "Old Password is InCorrect,Acess Denid ", vbCritical + vbOKOnly, "Nagrial's Iformation"
                cmdOK.Picture = Image5.Picture
                cmdCanceI.Picture = Image5.Picture
                lblTip1.Caption = ""
                    txtOldPassword.SetFocus
        End If
    End If
End Sub
Private Sub Form_Activate()
    txtPassword.SetFocus
End Sub
Private Sub Form_Load()
    frmLogin.Top = (Screen.Height - Height) / 2
    frmLogin.Left = (Screen.Width - Width) / 2
Connection.main
    If rsLogin.State = 1 Then rsLogin.Close
        rsLogin.Open ("Select * From Login"), conn, adOpenKeyset, adLockOptimistic
    ChangePassWin.Visible = False
    LoginWindow.Visible = True
    End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdconnect.Picture = Image5.Picture
    cmdcancel.Picture = Image5.Picture
    cmdOK.Picture = Image5.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip.Caption = ""
    lblTip1.Caption = ""
End Sub
Private Sub cmdconnect_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdconnect.Picture = Image4.Picture
    cmdcancel.Picture = Image5.Picture
    lblTip.Caption = "Login to System..."
End Sub
Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdOK.Picture = Image4.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip1.Caption = "Save Password..."
End Sub
Private Sub cmdcancel_Click()
Dim rep
rep = MsgBox("Do you want to quit?", vbYesNo + vbQuestion, Me.Caption)
If rep = vbYes Then
    LoginSucceeded = False
    End
End If
End Sub
Private Sub cmdcancel_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdconnect.Picture = Image5.Picture
    cmdcancel.Picture = Image4.Picture
    lblTip.Caption = "Cancel Login and Quit..."
End Sub
Private Sub cmdcanceI_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdOK.Picture = Image5.Picture
    cmdCanceI.Picture = Image4.Picture
    lblTip1.Caption = "Cancel..."
End Sub
Private Sub lblChangepassword_Click()
    LoginWindow.Visible = False
    ChangePassWin.Visible = True
End Sub
Private Sub lblChangePassword_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    lblTip.Caption = "Click To Change password"
End Sub
Private Sub LoginWindow_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdconnect.Picture = Image5.Picture
    cmdcancel.Picture = Image5.Picture
    lblTip.Caption = ""
End Sub
Private Sub ChangePassWin_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    cmdOK.Picture = Image5.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip1.Caption = ""
End Sub
Public Sub HiLite()
'Developed By:      Abdulwaheed
'Description:       Hilite all characters in each textbox contol on Got Focus
If TypeOf ActiveControl Is TextBox Then
  ActiveControl.SelStart = 0
  ActiveControl.SelLength = Len(ActiveControl.Text)
End If
End Sub
Private Sub chknumric()
'description:       Check numric values in a text box and accept only numric
On Error Resume Next
If TypeOf ActiveControl Is TextBox Then
  If Not IsNumeric(ActiveControl.Text) Then
  SendKeys "{backspace}"
  End If
End If
End Sub
Private Sub txtNewPassword_GotFocus()
    HiLite
End Sub
Private Sub txtNewPassword_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    cmdOK.Picture = Image4.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip1.Caption = "Save Password..."
    cmdOK_Click
End If
End Sub
Private Sub txtOldPassword_GotFocus()
    HiLite
End Sub
Private Sub txtOldPassword_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    cmdOK.Picture = Image4.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip1.Caption = "Save Password..."
    cmdOK_Click
End If
End Sub
Private Sub txtPassword_GotFocus()
    HiLite
End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        cmdconnect.Picture = Image4.Picture
        cmdcancel.Picture = Image5.Picture
        lblTip.Caption = "Login to System..."
            cmdconnect_Click
    End If
End Sub
Private Sub txtRetryNewPassword_GotFocus()
    HiLite
End Sub
Private Sub txtRetryNewPassword_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    cmdOK.Picture = Image4.Picture
    cmdCanceI.Picture = Image5.Picture
    lblTip1.Caption = "Save Password..."
    cmdOK_Click
End If
End Sub
Private Sub txtUserName_GotFocus()
    HiLite
End Sub



